..--***السلاد عل کد 7 


أهلاً وسَهلاً بكم إخواني رواد منتداتا الحبيب 


ن البرمجة 


إخواني.... هذا الموضوع وضعته أملا في أن تكون البرمجة وسيلة لتحقيق أغراض نافعة خارجة عن 
العمل داخل نظام الكمبيوتر. 


معلو م : هل تعلم بان أكثر من 100/70 من الأغراض التي 
e EV GE e mS‏ 
(لن أقول كيف لكن فكر كيف أتت ملابسك التي 


تلبسها الآن.( 


إن عرفت هذا ستعرف الفكرة التي يحملها الموضوع مع أنه بسيط 
للغاية. 


انا أنوي أن أنجز: 


کہ باو باو ۳ » EEE‏ 
برنامج يتحکم بمحرکين 


هذا تصميم لما سيكون نتاج المشروع و فكرة عن طريقة عمله 


يتحرك على طول السكة البنية ذهابا و إيابا 


محرك2 


اتجاقه لے 


بتحرك على طول السكة الحمر اء ذهابا و اياب 


المحرك1 ينتقل ذهابا و إيابا على اللوحة البنية 
المحرك2 مثبت على اللوحة البنية و ينتقل ذهابا و إيابا على 
طول السكة الحمراء 
نثبت شيئا ما في المحرك 1 (مثلا قلم.( 
آلية عمله: 


متلا نرید رسم مربع: 


-1يتحرك المحرك1 نحو الأعلى ثم يتوقف 

-2يتحرك المحرك2 نحو اليمين ثم يتوقف 

-3يتحرك المحرك1 نحو الأسفل ثم يتوقف 

-4يتحرك المحرك2 نحو اليسار ثم يتوقف 
*فینتج لنا شکل مربع* 


أن تنجز لنا هذه الآلة؟٠‏ 
-نستطيع أن نجعلها ترسم أشكال بدقة وعلى أي سطح مستوي. 


-تستطيع تقطيع الحديد أو تلحيمه بدقة إن تبتنا بها مصهر 
اiحديد)ټٺn (Chali‏ 


أو أدات تلحيم. 


العمل جار عليها ............. .ليس هذا ما سأعرضه في الموضوع. 
عند أكملها بإذن الله سأضع فيديو و صور لها مع طريقة إنجازها. 


سا اللآن طريفة البداية للتعامل مع الأجهزة الخارجة عن نضام الكمبيوتر **-- 


مقدمة لأنضمة الأعداد (مهم جدا و هو الأساس: ( 


النظام العشرى 
نسخدم النظام هذا يوميا في حياتنا و في اغلب امورنا ودرسناه في الإبتدائي و هو بكل بساطة نظام الارقام على الاساس العشري و يحتوي 
على: 
0123456789 


عدد مكونات النظام العشري هو عشرة ارقام , و هذا هو سبب تسميته بهذا الاسم حيث انه يكبر بعد كل عشرة ارقام, مثال بسيط هو التالي: 
0 


1 


10 
11 
لاحظتم الاختلاف بين ال9 و ال10 , حيث انه عندما انتهينا من الارقام ( اخر رقم هو 9) رجعنا للرقم الاول و هو صفر و اضفنا واحد 


بجواره على اليسار, و لو واصلنا العد لوصلنا الى ال19 و ثم نرجع الرقم 9 الى صفر و نضيف واحد الى الرقم 1 فيصبح الرقم 20 و هكذا 
دواليك (جد عادي. ( 


النظام الثناني 
كما قلنا ان النظام العشري يعتمد على اساس عشرة ارقام , فالرقم الثنائي يعتمد على رقمين فقط و هما صفر وواحد 
0 1 
و بنفس الطريقة , عند الانتهاء من الارقام نضيف الرقم صفر و نزيد واحد , كما هو الحال 


0 


10 
11 
100 
101 
110 
111 


نلاحظ ان النظام يتكون من رقمين فقط , صفر وواحد نبدأ بالصفر ثم واحد ثم نضيف واحد مكانالصفر و نضيف واحد بجوار الرقم عند 
انتهاء الارقام ( في حالتنا انتهاء الارقام هما صفر وواحد( 


ملاحظة مهمة: 
الرقم التالي 101100 في النظام الثنائي لا يلفظ ب مئة وعشرة الالاف و مئة! بل يلفظ كالتالي: 
واحد صفر واحد واحد صفر صفر . ويقرأ من اليسار إلى اليمين 


و القاعدة هي : عندما نصل الى رقم صاحب الترتيب الذي يساوي اساس نظام العد ( في حالتنا هنا النظام الثنائي مثلا) نقوم بوضع الرقم 
صفر في الخانة الحالية و نضيف الرقم واحد في الجهة التالية له. 


الآن بعد ان عرفنا ما هو النظام العشري و النظام الثنائي , سنقوم بالتحويل بينهم. 


التحويل من النظام الثنائي الى العشري: 


اولا, لنتكلم عن النظام العشري, متلا الرقم 134 يتكون من التالي: 


0 10 صرب 4 + 1٨10‏ صرب 10٨72‏ + 3 صرب 1 


0 + 30 +4 = 
14 = 
اليست الطريقة صحيحة؟ 


لاحظتم اننا استخدمنا اساس النظام العشري و هو الرقم عشرة و في المرحلة الاولى رفعناه للأس صفر ثم واحد ثم اثنان و هكذا ثم نضربه 
في الرقم التالي و نجمعهم في النهاية حتى نحصل على الناتج . 


التحويل الى الرقم الثنائي شبيه جدا , و بما ان اساس النظان الثنائي هو 2 فنستبدل الرقم 10 ب 2 , لنأخذ رقما معيناً لنحوله, فليكن الرقم 
1 متلا 


111 
0 صرب 1 + 1٨۸2‏ صرب 1 + 2٨۸2‏ ضرب1 
1+2+4 = 
7 
جميل! الرقم 111 ( واحد واحد واحد) يساوي 7 في النظام العشري. 
لنجرب رقماً اخر و ليكن 1010101 
1010101 
0 ضرب 1 + 1٨2‏ ضرب 0 + 2٨2‏ ضرب 1 + 3٨2‏ ضرب صفر + 4٨2‏ ضرب واحد + 5^٨2‏ ضرب صفر 2^٨6‏ + ضرب واحد 
64 + 0 + 16 +0 +4 +1+0= 


= 85 


التحويل من النظام العشري الى الثنائي: 


الطريقة اسهل هنا, لنأخذ مثلا الرقم 400 , لتحويله نقسمه على 2 , فاذا كانت الناتج يحتوي على كسور فيكون الرقم الاول من الرقم 
الثنائني هو 1 و ادا لم يتحوي على كسور فيكون الرقم صفر 


يعني: 
, 200 = 2 / 400اذن الرقم الاول هو صفر 


,100 = 2 / 200 صفر 


,50 = 2 / 100 صفر ایضا 


,25 = 50/2صفر 
,12 = 25/2واحد 
,6= 12/2صفر 
,3= 6/2صفر 
,1= 3/2واحد 
,0= 1/2واحد 


يصبح الناتج هو = 110010000 


بهذا نكون قد انتهينا من شرح هذه النقطة 
وعلى فكرة من يرى ان عملية التحويل بين النظامين صعبة الى حد ما فيمكنه ان ب يستخدم الالة الحاسبةالخاصة بالويندوز لاجراء هذه 
التحویلات بعد تحويلھا iؤ|ı¬0de scientific‏ 
ولكن كان لابد من هذا الشرح لتكونوا ملمين بالموضوع 
ا ا کے ای 


:-dimarrer-Tous les Programmes-Accessoires-Calculatrice-jgدiيgئا أدخل لحاسبة‎ 


ڪا ڪا س ي 


تضهر النافذة التالية: 
16x‏ السداسي عٿريF.E.D.C.8.۸A.9.8.7.6.5.4.3.2.1.0‏ 
-6(العشىرى 9.8.7.6.5.4.3.2.1.0 
-0الثمانى7.6.5.4.3.2.1.0 


1.0 ىرانيبلا/ىئانثلا8i«-‎ 


۹ 2 ا Calculatrice‏ 8` 
Edition Affichage ? cia‏ 
اا ري _ سس صم 


1 ا س خیرالاین لزریف 
Dêc OUOct OBin | (a) Degrês 0 ET O Grades‏ @( 


النظادر یشضږری 
اما السیاعد20 پالکسرییهیه F-0,‏ 
هنا التركيز: 
-إختر النضام الثناني. 


-أكتب العدد (من اليسار إلى اليمين.( 


-بعد الكتابة إختر النظام العشري وسيتم إضهار النتيجة. 


طر نه التحويل 3 e‏ ا WEEE EIE‏ ت 
آ 


Edition Affichage +? س‎ 


للعشرى 1 


OHes (ODDêée (ODUet ت‎ _ 


am ome [ Î 0 
أختر الكتابة‎ 

اطا اسان[ SEE‏ لسا اسالا لت 

A E ¬ — 

3 E اا‎ 

Dat tarî ر‎ pi ت‎ E LL [ E F 3 

تریادت ) ۰ . 


 D-mat el Mot ا‎ Uctet 


.لار س وا سم  Lalculatrite‏ 
Edition Affichage ?‏ 

خیرالدین لزریقه _ _ ) | 

O Her DÊ 8 Ice Bin (®) Degqrêz O RBadians O Grades 


jlne [IHrp |‏ [ 
اساسا اساسا اشقا 
اا تا س 
ا ا 
SEN ge‏ ۳ فشڪ | | i!‏ ا 2 0± 
| ج 


اسا ا سے 


سؤال يطرح نفسه :ما علاقة هذا الموضو ع بال٤٣0م‏ ara11e1م؟؟‏ 
باختصار شديد ال ١0۲م‏ 1ع[اوإوممكون من 25 «ذم مقسمين بطريقة معينة (ساشرحها بالتفصيل ) يوجد منهم 8 رذميسموا بال وا5 
port‏ 
كل زم تأخذالقيمة 1 او 0 
1معناها ان هذه ال ہرم علیھا جهد مقداره حوالی 5 فولت 
0معناها ان هذه ال pin‏ لیس عليها فولت (تقریبا( 
فاذا كنا على سبيل المثال نوصل 8 اجهزة مختلفين فى 8 دزم وكنا نريد تشغيل الجهاز الاول فقط واطفاء الباقين 
ی هذه الحالة لا يمكن التعامل مع ال nمالاولى‏ ( او ای (ہاذp‏ منفردة بل لابد من التعامل ع ال8 ہم فی نفس الوقت 
لذلك نضطر الى ارسال قيمة ثنائية الی ٤0م‏ 1ع11هاهم کالتالی00000001 وهی تساوى 1 بالعشرى ايضا 


ماذا لو كنا نريد تشغيل الاجهزة 1و5و8واطفاء الباقين 
فى هذه الحالة نريد ارسال قيمة ثنائية تساوى 10010001 وهذه القيمة تساوى 145 بالنظام العشرى وهكذا 


بداية العمل: 
التعريف بمنافذ الكمبيوتر: 


-هي وصلات يستعملها الكمبيوتر للإتصال بالأجهزة المحيطة به (منفذ الشاشة-منفذ لوحة المفاتيح و الفأرة -منفذ سلك الهاتف للإتصال 
بالنت-منفذ لمكبرات الصوت-منفذ الطابعة( ......... parallel port‏ 


تعريف منفذ الطابعة: ٤إoم‏ اعالوامم 


-هو منفذ به 25 ثقب , يسمى أيضا المنفذ المتوازي وهو منفذ قديم قليل الإستعمال في الأجهزة الحديثة وأصبحو يعتمدون على ال 88لا 
لصغره و إمكانياته الكبيرة في نقل البيانات ,وسنستعمله لأنه الأسهل و الأفضل بالنسبة لنا. 


مبدأً عمل منفذ الطابعة و التعامل معه؛ 


-منفذ الطابعة يستخدم النضام الثنانئي (1-0) (تعني عدم وجود تيار / 1تعني وجود تيار 


يخرج المنفذ توتر قدره حوالي. 5.9۷ 


لاحضو الصورة التالية: 


المنافذ الأساسية التي سنستعملها هي الحمراء و الخضراء 
نشبه الحمراء بسلك الطور و الخضراء نشبهها بالحيادي (الخضراء هنا توصيل أرضي وكلها متصلة مع بعضها.( 


البدأ ةذ في إنجاز المشروء: 


متطلبات المشروع: 
-منفذ الطابعة في جهازك. 
-أضواء ديود لد,وتستطيع لحصول عليها بسهولة من شاحنات الهواتف و تقريبا كل الأجهزة الإلكترونية. أو محركات. 
-أدوات تلحيم و أسلاك طويلة و رقيقة لتوفير مساحة للعمل. 
-لغة برمجة للتعامل مع المنفذ : سأستعمل هنا الدلفي7. 


-مكتبة 11ل.32٤0uمد1‏ للتعامل مع المنفذ . وهي جد ضرورية حملها من م[ومه6 وضعها 
في المسارC:\WINDOWSl\syste32‏ : 


التحكم بمنفذ الطابعة و التركيب: 


*كما قلنا سابقا للتعامل مع المنفذ سنحتاج للنضام الثنائي*. 


مخطط التركيب: 


ECL 


000008080000000 
Di- DF = +5F GROUND = OF 


)المستطيلات التي تحمل رقم 470 هي مقاومات لحماية الديود من التيار العالي . لا حاجة لإستخدامها لأن الديود يحتمل 5.9 ۷وليست 
كبيرة,الدوائر التي فيها علامة × هي مصابيح . هنا ديود لد( 


هذه صور حقيقية للتركيب: 


)اللوحة البيضاء لا تهمنا فهي تستعمل للتنضيم و تثبيت الأجزاء فقط (يستحسن إستعمالها ويمكنك إستبدالها بأي لوح عازل به ثقوب.( ( 


لربط مصباح واحد: 


DESO 


@ @ @ @ @ @ @ 2 
@ @ @ © 3 @ 2 3 @ © 


DO - DF = +45F GROUND = OF 


ملاحظة: الديولد لد يمرر الكهرباء من جهة واحدة فقط . لذا إن لم يشتغل عليكم بعكس أسلاكه.)0 


البرمجة: 


-الكتابة السوداء ينشنها الدلفي وحده., 
-البرتقالية نكتبها لتعريف مكتبة [32.01٤01م11‏ لإستخدامها. 
-الحمراء الكود الذي نكتبه لإخراج التيار. 
-الوردية تعليقات لا دخل لها بعمل البرنامج) تستطيع حذفها.( 
unit Unit1;‏ 
interface‏ 


uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 


type 
TForm1 = class(TForm) 
Button1: TButton; 
Button2: TButton; 
Button3: TButton; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure Button3Click(Sender: TObject); 
procedure FormClose(Sender: TObject; var Action: TCloseAction); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 
procedure Out32(PortAddress:word; Value:byte);stdcall;jexport;jexternal 'inpout32.DLL'; 
function Inp32(PortAddress:word):byte;stdcall;jexport;external 'inpout32.DLL'; 
var 
Form1: TForm1; 
implementation 


{$R *.dfm} 


procedure TForm1.Button1Click(Sender: TObject); 


Begin 
وتساوي 11111111 بالنضام الثنائي وهي أعلى قيمة القيمة 255 تعني إرسال التيار لكل المنافذ الحمراء الثمانية //;(132)888,255 7ا0‎ 
end; 


OS EE E AE E E jE AE AE FE E E E jE jE IE IE AE IE E E E E jE Û E E AE IE E FE E IE jE Û E 2 E E E 2 E E f 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
لثلاثة منافذ-3-7-8 التيار لعدد معين من المنافذ الثمانية وتساوي 1100100 بالنضام الثنائي وترسل التيار القيمة 100 تعني إرسال // ;(132)888,100 1ا0‎ 


end; 

(HESH EAE E Hc EAE EHEC SEA HESE E SHEE AES Ee ES Ee ES Ee esl e seo 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
المنفذ هذه القيمة لا ترسل أي تيار لمنافذ//;(132)888,0 71ا0‎ 
end; 


JPEERREEEEEEEEENEEEREEEERNEEEEEEEEREEREEEEEEEEEES 


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
OUT32(888,0); 
end; 


end. 


OUT32(888,255): 
القيمة الزرقاء:هي عنوان منفذ الطابعة.‎ 
القيمة الحمراء؛ : قيمة الإرسال بالنضام العشري ولمعرفة القيمة نحولها للنضام البيناري وتساوي‎ 
11111111 


صورة السورس: 


„Delphi, 7 Project2 


|. Fichimr Edition Lhercher Yair Exêcuter Lomposant Ease de donnêes Outils Fenêtre ûide | [ucu 


| E 3 - ٤ E 3ِ & ا‎ I Standard | EE Wina? | E EontrêleBÜ | a Eserese| n | BDE 1 EBÎ ADO | Weböervices | IntemetE 4 * | 


EEE b -Il| ã ã ` E E AW KW RFR @ 
.Š Unit1.pas 
Procêdurez ⁄ [procedure Out32 (PortAddress: word; Value: byte) ; stdcall;export ; external 'inpout32. DLL"; اسا‎ 


Wariables#Cor Function Inp32 (PortAddress: word] : byte; stdcall;export ;external 'inpout32. DLL" ; 


lse: ۳ AFET “©‏ 
دة شي القيمر Forml: TForml;‏ 
التي تجدد إرسال ‘implement at ion‏ 
التيار وتبدامن0إلى 
الا ا 
ا ARE SCE‏ 


procedure TFory #EÊutton1lclick (Bender: Tobject)} ; 


Beqin 
our32 (B88, 5S) 
and ; 


ا 

procedure TForml. Button3Click (Sender: Tobject]} ; 
begin 

ouUT32 (888, 100) 

end; 


procedure TForml. ButtonzZClick (Sender: ToObJject]} ; 
begin 
ouT32 (B88, 0) 


end; 
| KEKE EEKEEEEEKEKEEEKKEKEEEKEKKEKEKKEKEKEEEKEKEKEHKEHKEKKKHKkKR 


procedure TForm1.FormClose (Sender: ToObject; ¥ar Action: TClIsseAction] ; 
begin 

loUT32 (BBB, O) 

end; 


khireddine lazaref 


ms 1 3 آ‎ E2. ےل‎ Modifié Insertion 


Code A Diagrarime :‏ ا 


ملحوظة: القيمة 100 ليست حقيقة أنها تشغل النصف. بل تشغل 3 مصابيح . الأخير و ماقبل الأخير و الثالث. 


1)تعني إرسال تيار / 0 تعني عدم وجود تيار) بالنسبة لكل ثقب) ).//---الترتيب جد مهم 
لإشعال كل المصابيح يجب إرسال القيمة 11111111 وتساوي 255 بانضام العشري 
لإشعال المصباحين الأول و الأخير نرسل القيمة 10000001 وتساوي 129 بالنضام العشري .يعني لتطبيق هذا الأمر نكتب: 


OUT32(888,129); 


